home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / fixptlib / fp_redisplay_data.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  1023 b   |  34 lines
  1. /* Redisplay the periodic orbit symbol data */
  2. #include "../modellib/class_kaos_def.h"
  3. fp_redisplay_data()
  4. {
  5.     int i,j,k,color,s_type,fp_type,t_period;
  6.     double **t_eval,*t_x,*dvector(),**dmatrix();
  7.         extern int stop,var_dim,n_stored_fp,symbol_size,fp_display_option;
  8.     extern char string[];
  9.     extern int *fp_period;
  10.     extern double **fp_x,***fp_eval,***fp_evec,*fp_xerr;
  11.  
  12.     stop=0;
  13.     t_x = dvector(0,var_dim-1);
  14.     t_eval = dmatrix(0,var_dim-1,0,1);
  15.     for(i=0;i<n_stored_fp;i++){
  16.         t_period = fp_period[i];
  17.         for(j=0;j<var_dim;j++)
  18.             for(k=0;k<2;k++) t_eval[j][k] = fp_eval[j][k][i];
  19.         for(j=0;j<var_dim;j++)t_x[j] = fp_x[j][i];
  20.         fp_get_type(&fp_type,t_eval,var_dim);
  21.         fp_get_attributes(string,&color,&s_type,fp_type);
  22.         (void) draw_record_pwf(t_x,color,s_type,symbol_size,1,0);
  23.         if(fp_display_option==1){
  24.             if(t_period>1)
  25.                 (void) draw_record_other_pwf(t_x,t_period,color,s_type,symbol_size,1,0);
  26.         }
  27.         if(stop){
  28.             return;
  29.         }
  30.     }
  31.     (void) free_dvector(t_x,0,var_dim-1);
  32.     (void) free_dmatrix(t_eval,0,var_dim-1,0,1);
  33. }
  34.